home *** CD-ROM | disk | FTP | other *** search
/ Publication 7 / Publication_07_1996_High-Tech_de_Side_B.d64 / zahlen per joy (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  639b  |  19 lines
  1. 10 rem ********************************
  2. 11 rem *                              *
  3. 12 rem * zahleneingabe per joystick ! *
  4. 13 rem *                              *
  5. 14 rem ********************************
  6. 15 p=1:rem joyport 1 wird benutzt
  7. 16 dim z(5):rem 5-stellige zahl
  8. 17 print"zahl    : ";:rem eingabetext
  9. 18 print"00000[157]";:a$="[157][163][145][157]":z=5
  10. 19 joy=peek(56322-p):ifjoy=254andz(z)<9thenz(z)=z(z)+1:rem joyabfrage
  11. 20 ifjoy=253andz(z)>0thenz(z)=z(z)-1
  12. 21 ifjoy=251andz>1thenz=z-1:print" [145][157][157]";
  13. 22 ifjoy=247andz<5thenz=z+1:print" [145]";
  14. 23 ifjoy=239then100
  15. 24 printright$(str$(z(z)),1)a$;:goto19:rem zurueck zur joyabfrage
  16. 25 rem
  17. 100 e=z(5)+z(4)*10+z(3)*100+z(2)*1000+z(1)*10000:rem gesamteingabe
  18. 101 print:print"eingabe :"e
  19.